
 
   *200                  / Set current assembly origin to program text area
   HELLO,  CLA CLL       / Clear AC and Link (carry)
           TAD (STRNG-1) / Set up string pointer in PRE-auto-increment register
           DCA STPTR     /   :
   NEXT,   CLA CLL       / Clear AC and Link again (needed when we loop back from tls)
           TAD I STPTR   / Get next character, indirect via PRE-auto-increment address
           SNA           / Skip if non-zero (not end of string)
           HLT           / Else halt on zero (end of string)
           TLS           / Output the character in the AC to the teleprinter
           TSF           / Skip if teleprinter ready for character
           JMP .-1       / Else jump back and try again
           JMP NEXT      / Jump back for the next character
 
   STRNG,  310           / H
           345           / e
           354           / l
           354           / l
           357           / o
           254           / ,
           240           / (space)
           367           / w
           357           / o
           362           / r
           354           / l
           344           / d
           241           / !
           0             / End of string
  *10                   / Set current assembly origin to address 10,
   STPTR,    0           / an auto-increment register (one of eight at 10-17)
   $